module fptr
  implicit none
  integer :: lenx,lenp
  integer :: xptr,pptr
end module fptr
